home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / batch / MiniMen.lha / MiniMen / DimpX.1 < prev    next >
AmigaDOS Script File  |  2000-02-26  |  483b  |  23 lines
  1. .key fname
  2. MiniMen drives
  3. if exists env:minmen
  4.    assign >nil: exists $MinMen:
  5.    if warn
  6.       if exists sys:storage/dosdrivers/$MinMen
  7.          mount >nil: sys:storage/dosdrivers/$MinMen
  8.       else
  9.          echo "*N Device driver not found....!"
  10.          quit
  11.       endif
  12.    endif
  13.    search >nil: env:FDMP .DEX
  14.    if warn 
  15.       dimp WRITE "<fname>" $MinMen:
  16.    else
  17.       "<fname>" $MinMen:
  18.    endif
  19. else
  20.    echo "*N Operation canceled...!"
  21. endif
  22. delete >nil: env:MinMen env:FDMP
  23.